home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / mus / misc / spcli.lha / SongPlayerCLI / Rexx / SpCLI / Info.rexx < prev    next >
OS/2 REXX Batch file  |  2000-08-23  |  627b  |  27 lines
  1. /* 
  2. SongPlayerCLI v1.52 (by Gareth Griffiths)
  3. E-Mail: gazchap@btinternet.com
  4. Info.rexx - Outputs some information on the current file.
  5. */
  6.  
  7. IF ~SHOW('P','SONGPLAYER.1') THEN DO
  8.     ADDRESS COMMAND
  9.     SAY "Can't find ARexx port 'SONGPLAYER.1'"
  10.     EXIT
  11. END
  12.  
  13. ADDRESS 'SONGPLAYER.1'
  14. OPTIONS RESULTS
  15. TIME_TYPE 1
  16. 'GET_SELECTED';index=result
  17. 'GET_TITLE';title=result
  18. 'GET_ARTIST';artist=result
  19. 'GET_DURATION';duration=result
  20. 'GET_FILEPATH';filepath=result
  21. ADDRESS COMMAND
  22. SAY 'Information for file number 'index':'
  23. SAY ' · Title:        'title
  24. SAY ' · Artist:       'artist
  25. SAY ' · Duration:     'duration
  26. SAY ' · Path To File: 'filepath
  27. EXIT